home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / moreuselssprgs.lha / Joytester.AMOS / Joytester.amosSourceCode
AMOS Source Code  |  1997-04-18  |  680b  |  27 lines
  1. Screen Open 0,320,200,16,0
  2. Curs Off : Flash Off : Paper 0 : Pen 1
  3. Cls 
  4. Palette 0,$FFF,$F0,$F00,$F00,$F00,$F00,$F00,$F00,$F00,$F00,$F00
  5. Degree 
  6. For A=0 To 7
  7.   X=Cos(A*45-90)*50 : Y=Sin(A*45-90)*50
  8.   Ink A+3
  9.   Circle 160+X,100+Y,5
  10.   Paint 160+X,100+Y,A+3
  11. Next 
  12. Ink 2 : Bar 150,90 To 169,109
  13. Ink 11 : Bar 150,10 To 169,29
  14. AA=0
  15. Do 
  16.   A=0
  17.   If Jleft(1) Then A=7
  18.   If Jright(1) Then A=3
  19.   If Jup(1) Then A=1
  20.   If Jdown(1) Then A=5
  21.   If Jleft(1) and Jup(1) Then A=8
  22.   If Jleft(1) and Jdown(1) Then A=6
  23.   If Jright(1) and Jup(1) Then A=2
  24.   If Jright(1) and Jdown(1) Then A=4
  25.   If AA<>A Then Colour A+2,$F0 : Colour AA+2,$48 : AA=A
  26.   If Fire(1) Then Colour 11,$F0 : Else Colour 11,$48
  27. Loop